home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 9 / 64er_Magazin_Sonderheft_09_86-09_1986_Markt__Technik_de_Side_A.d64 / ex.dir & bam (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  148 lines
  1. 0 rem *********************************
  2. 1 rem ***                           ***
  3. 2 rem ***      ext. dir & bam       ***
  4. 3 rem ***                           ***
  5. 4 rem ***          (c)  1986        ***
  6. 5 rem ***           by w. friedrich ***
  7. 6 rem ***           c-64 + 1541     ***
  8. 7 rem ***                           ***
  9. 8 rem *********************************
  10. 10 dim s$(255):i=0:m=0:nu$=chr$(0):c$=chr$(13)
  11. 20 print chr$(147)chr$(159)chr$(14):poke53281,0:poke53280,0
  12. 30 ft$(0)="[196][197][204]":ft$(1)="[211][197][209]":ft$(2)="[208][210][199]":ft$(3)="[213][211][210]":ft$(4)="[210][197][204]"
  13. 40 ll$="                                           "
  14. 100 print"      [197]rweiterts [196]irectory & [194][193][205]"
  15. 110 print"      [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  16. 120 print"      [196][146]rucker oder [194][146]ildschirm?"
  17. 130 get a$:if a$=""then130
  18. 140 if a$="d"then ga=4:goto165
  19. 150 if a$<>"b"then130
  20. 160 ga=3
  21. 165 open1,ga,7
  22. 170 print"[145]"ll$
  23. 180 print"   1 [146]  [197]rweitertes [196]irectory":print
  24. 190 print"   2 [146]  [194][193][205]"
  25. 200 get a$:if a$="1"or a$="2"then210
  26. 201 goto200
  27. 210 on val(a$)gosub3002,2009
  28. 215 get a$:if a$=""then215
  29. 220 print chr$(147)chr$(158)
  30. 230 print"[206]ochmal(j/n)
  31. 240 [161] a$:[139] a$[178]""[167]240
  32. 250 [139] a$[179][177]"j"[167] [153] [199](159):[128]
  33. 260 [138]
  34. 500 [143] unterprogramme
  35. 501 [143] **************
  36. 505 [143] diskname und id auslesen
  37. 506 [143] ************************
  38. 510 mn[178]0
  39. 520 mn[178]mn[170]1:[139] [198](s$(143[170]mn))[179][177]160[167] dn$[178]dn$[170]s$(143[170]mn):[137]520
  40. 530 [129]i[178]0[164]4:id$[178]id$[170]s$(162[170]i):[130]
  41. 540 [142]
  42. 600 [143] formatieren
  43. 601 [143] ***********
  44. 610 f$[178][196]([181](f))
  45. 612 [139] f[178]0[167] 620
  46. 615 [139] f[179]1[167] [152]1," ";
  47. 620 [129] ii[178]1[164]5[170]sp[171][195](f$):[152]1," ";:[130]
  48. 630 [142]
  49. 700 [143] startaddr prog
  50. 701 [143] **************
  51. 710 [159]15,8,15,"i0":[141]910
  52. 720 [159]2,8,2,"#":[141]910
  53. 730 [152]15,"u1:2,";0;ft;fs
  54. 740 [152]15,"b-p:2,0"
  55. 760 [161]#2,a$,a$,l$:[139] l$[178]""[167] l$[178]nu$
  56. 770 [161]#2,h$:[139] h$[178]""[167] h$[178]nu$
  57. 780 sd[178]256[172][198](h$)[170][198](l$):[160]2:[160]15
  58. 790 [142]
  59. 900 [143] fehlerkanal
  60. 901 [143] ***********
  61. 910 [132]15,y1,y$,y2,y3:[139] y1[178]0[167] [142]
  62. 920 [153] y1;[199](18)y$ [199](146),y2,y3:[160]1:[160]2:[160]15:[142]
  63. 1000 [143] einen sektor lesen
  64. 1001 [143] ******************
  65. 1010 [159]15,8,15,"i0":[141]910
  66. 1020 [159]2,8,2,"#":[141]910
  67. 1030 [152]15,"u1:2,""0";t;s
  68. 1040 [152]15,"b-p:2,0"
  69. 1050 [152]15,"m-r"[199](0)[199](5)
  70. 1060 [161]#2,s$(0):[139] s$(0)[178]""[167] s$(0)[178]nu$
  71. 1070 nt[178][198](s$(0))
  72. 1080 [161]#2,s$(1):[139] s$(1)[178]""[167] s$(1)[178]nu$
  73. 1090 ns[178][198](s$(1))
  74. 1110 [129] i[178]2[164]255:[161]#2,s$(i):[139] s$(i)[178]""[167] s$(i)[178]nu$
  75. 1120 [130]
  76. 1130 [160]2:[160]15
  77. 1999 [142]
  78. 2000 [143] bam anzeigen
  79. 2001 [143] ************
  80. 2009 [153] [199](147)
  81. 2010 t[178]18:s[178]0:[141]1010
  82. 2012 [141]510
  83. 2016 [152]1,"       "[199](18)[199](34)dn$[199](34)"  "id$[199](146)
  84. 2018 [152]1,"  peek"c$"  l"c$"  o"c$"  c"c$"  k 012345678901234567890 (NULL)ektor"c$
  85. 2020 [129] i[178]1[164]35
  86. 2030 bf[178][198](s$(i[172]4))
  87. 2040 [129] j[178]1[164]3
  88. 2050 q$[178][196]([198](s$(i[172]4[170]j)))
  89. 2060 [141]2505
  90. 2070 b$[178]b$[170]bi$
  91. 2080 [130]
  92. 2085 [139] tz[179]9[167] [152]1," ";
  93. 2090 tz[178]tz[170]1:[152]1,tz;
  94. 2100 [139] tz[179]18[167] [152]1,[200](b$,21)"   ";:[137]2135
  95. 2110 [139] tz[179]25[167] [152]1,[200](b$,19)"     ";:[137]2135
  96. 2120 [139] tz[179]31[167] [152]1,[200](b$,18)"      ";:[137]2135
  97. 2130 [152]1,[200](b$,17)"       ";
  98. 2135 [139] bf[179]10[167] [152]1," ";
  99. 2140 [152]1,bf" peeklocks free"
  100. 2150 [139] tz[179][177]18[167] gf[178]gf[170]bf
  101. 2160 b$[178]"":[130]
  102. 2170 [152]1,c$"           "gf" peeklocks free"
  103. 2180 [142]
  104. 2500 [143] dez->dual
  105. 2501 [143] *********
  106. 2505 [139] q$[178]" 255"[167] bi$[178]"........":[142]
  107. 2507 [139] q$[178]" 0"[167] bi$[178]"********":[142]
  108. 2510 d[178][197](q$):bi$[178]"":z[178]0
  109. 2520 z[178]z[170]1:d[178]d[173]2:[139] d[179][177][181](d)[167] bi$[178]bi$[170]".":[137]2540
  110. 2530 bi$[178]bi$[170]"*"
  111. 2540 [139] d[179][177].5[167] d[178][181](d):[137]2520
  112. 2580 d[178][195](bi$):[139] d[178]8[167] [142]
  113. 2590 [129] k[178]8[171]d [164]1[169][171]1
  114. 2600 bi$[178]bi$[170]"*"
  115. 2610 [130]
  116. 2620 [142]
  117. 3000 [143] ext. dir
  118. 3001 [143] ********
  119. 3002 [153]"str$val(NULL)-asciles mit anzeigen?";
  120. 3003 [161] a$:[139] a$[178]""[167]3003
  121. 3004 [139] a$[178]"j"[167] dm[178]1:[137]3007
  122. 3005 [153]:dm[178]0
  123. 3007 [153] [199](147)
  124. 3010 t[178]18:s[178]0:[141]1010
  125. 3020 [141]510
  126. 3030 [152]1,[199](18)[199](34)dn$[199](34)"  "id$;[199](146)
  127. 3040 [139] nt[179][177]18[176] ns[177]21[176] ns[178]0 [167] [152]1,664[171]gl" blocks free":[142]
  128. 3050 t[178]nt:s[178]ns:[141]1010
  129. 3060 [129] i[178]0[164]7
  130. 3070 m[178]i[172]32[170]2:mn[178]0:nf$[178]""
  131. 3080 ft[178][198](s$(m[170]1)):fs[178][198](s$(m[170]2)):tf[178][198](s$(m))[175]15:sd[178]0
  132. 3085 [139] dm[178]0[175] ft[178]0[167]3200
  133. 3090 mn[178]mn[170]1:te[178][198](s$(m[170]2[170]mn)):[139] te[179][177]160[175] te[177]10[167] nf$[178]nf$[170]s$(m[170]2[170]mn):[137]3090
  134. 3095 [139] nf$[178]""[167] 3200
  135. 3100 l[178][198](s$(m[170]29))[172]256[170][198](s$(m[170]28)):lg[178]lg[170]l
  136. 3120 [139] tf[179][177]0[167] [141]710
  137. 3130 f[178]l:sp[178]0:[141]610
  138. 3150 [152]1,l"   "[199](34)nf$;[199](34);[200](ll$,18[171][195](nf$));
  139. 3160 [152]1,ft$(tf);"  ";
  140. 3165 [139] ft[179]10[167] [152]1," ";
  141. 3170 [152]1," ";ft;
  142. 3175 [139] fs[179]10[167] [152]1," ";
  143. 3180 [152]1," ";fs;"   "[200](ll$,6[171][195]([196](sd)));sd;
  144. 3185 f[178]l[173]4:sp[178]2:[141]610:[152]1,l[173]4
  145. 3190 [139] tf[179][177]0[167] gl[178]gl[170]l
  146. 3200 [130]
  147. 3210 [137]3040
  148.